Add a command to popup toplevel bindings

diff --git a/which-key.el b/which-key.el
index a7222ea0a6af8202ee376cf6dd0f830fcd0c3c0f..a66d4fcac965e2daa738744939ace83c897ddbf6 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -555,6 +555,11 @@ bottom."
   (setq which-key-popup-type 'minibuffer
         which-key-show-prefix 'left))
 
+;;;###autoload
+(defun which-key-toplevel ()
+  (interactive)
+  (which-key--create-buffer-and-show nil))
+
 ;; Helper functions to modify replacement lists.
 
 (defun which-key--add-key-val-to-alist (alist key value &optional alist-name)